{
  Модуль поиска решений задач

 Решение задачи (поиск алгоритма) - Определение алгоритма расчета и необходимых данных для решения задачи
   задача - описана

 Составление расчетной схемы

   версия 0.2 март 2011 prodg@ya.ru D.Kondakov
}
unit SolvingSystm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, IIntgrlTypes, IIntgrlObjcts, IIntgrlBaseCnfg;

{$i calcconfig.inc}

type

  { TsolvSystem }

  TSolvSystem = class(TinlModule)
    procedure GetDefParams(DefParams: TStrings); override;
    function CheckParams: TinlLogicType; override;
    procedure AddDefParams(Params: TStringList); override;
    procedure ResetParams; override;
    procedure ProceedSignal(snlMsg: TinlStringType); override;
  protected
    function GetUnitVersion: TinlModifctn; override;
    procedure DataInit; override;
    procedure DataDone; override;
    function GetModuleType: TModuleType; override;
  end;

const
  SOLVmodVer = 1000001;

implementation

{ TsolvSystem }

procedure TSolvSystem.GetDefParams(DefParams: TStrings);
begin
  DefParams.Append('SOLV_AUTO=Автоматический поиск решений');
end;

function TSolvSystem.CheckParams: TinlLogicType;
begin
  Result := true;
end;

procedure TSolvSystem.AddDefParams(Params: TStringList);
begin
  //inherited AddDefParams(DefParams);
end;

procedure TSolvSystem.ResetParams;
begin
  //inherited ResetParams;
end;

procedure TSolvSystem.ProceedSignal(snlMsg: TinlStringType);
begin
  //inherited ProceedSignal(snlMsg);
end;

function TSolvSystem.GetUnitVersion: TinlModifctn;
begin
  Result := SOLVmodVer;
end;

procedure TSolvSystem.DataInit;
begin
  //inherited DataInit;
end;

procedure TSolvSystem.DataDone;
begin
  //inherited DataDone;
end;

function TSolvSystem.GetModuleType: TModuleType;
begin
  Result := mSOLV;
end;

end.

